
          org  $1000
           move.l  #$1300,a7




           move.w  d0,-(a7)
           move.b  alpha,d0
           jsr     eparity
           move.b  d0,alpha
           move.w  (a7)+,d0



           nop



          org  $1100

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; subroutine eparity
; generate even parity bit of a byte-size data
; input: d0.b  original data in low 7 bits (bit 0 - bit 6), MSB (bit 7) is dont care
; output: d0.b even parity bit included at bit 7 of the original data
; register used:  ?
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

eparity   movem.l



          movem.l
          rts

           org  $1200
alpha      ds.b  1










